home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Business Assistant
/
Business Assistant.iso
/
indus
/
rental
/
proc.prg
< prev
next >
Wrap
Text File
|
1986-05-30
|
1KB
|
63 lines
** Last revision: May 28, 1986 at 17:30
* proc.prg procedure files
PROC b_first
CLEA
@ 2,0 SAY line
@ 3, 1 SAY "Address:"
@ 3,55 SAY "Code:"
@ 4, 4 SAY "City:"
@ 4,37 SAY "State:"
@ 4,56 SAY "Zip:"
@ 6, 1 SAY "Manager:"
@ 6,54 SAY "Phone:"
@ 7, 4 SAY "Type:"
@ 7,44 SAY "Number of Units:"
@ 9, 0 SAY "Acquired:"
@ 9,45 SAY "Purchase Price:"
@ 11,28 SAY "Send Rental Payments To:"
@ 12,00 SAY "Company:"
@ 12,54 SAY "Phone:"
@ 13,01 SAY "Street:"
@ 14,03 SAY "City:"
@ 15,00 SAY "Chks To:"
@ 17, 2 SAY "Notes:"
@ 18,52 SAY "Updated:"
@ 19,0 SAY LINE
RETU
PROC t_first
CLEA
@ 2,0 SAY LINE
@ 3, 2 SAY "Tenant:"
@ 3,56 SAY "Code:"
@ 4, 4 SAY "Unit:"
@ 4,26 SAY "Building:"
@ 5, 1 SAY "Contact:"
@ 5,55 SAY "Phone:"
@ 6,09 SAY "Alternate mailing address: "
@ 7, 1 SAY "Address:"
@ 8, 4 SAY "City:"
@ 10, 4 SAY "Type:"
@ 10,19 SAY "Addl Percentage:"
@ 10,51 SAY "1st Lease:"
@ 11,04 SAY "Base:"
@ 11,50 SAY "Expiration:"
@ 12, 0 SAY "Security:"
@ 12,30 SAY "Bank:"
@ 12,51 SAY "Late Date:"
@ 13, 4 SAY "Rent:"
@ 13,25 SAY "Late Chgs:"
@ 13,51 SAY "Addl Rent:"
@ 14, 3 SAY "G & E:"
@ 14,24 SAY "Other Chgs:"
@ 14,50 SAY "Total Rent:"
@ 15, 0 SAY "Rent Due:"
@ 15,23 SAY "Last Paymnt:"
@ 15,52 SAY "Amt Paid:"
@ 16,00 SAY "Total Yr:"
@ 16,30 SAY "Flag:"
@ 16,55 SAY "Total:"
@ 18, 3 SAY "Notes:"
@ 18,54 SAY "Update:"
@ 19,0 SAY line
RETURN